home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / Zmodem.source.sit / vuplfile.t < prev    next >
Encoding:
Text File  |  1989-02-15  |  287 b   |  14 lines
  1.     echo "Uploading %item to VMS using DCL create command"
  2.     pat
  3.     if S>2400 pt1; ena -t
  4.     putw "set terminal/hostsync/noecho\r"
  5.     putw "create %item\r"
  6.     sleep 10
  7.     f -xHr %item
  8.     pat 1 "\044"
  9.     put "\032"
  10.     wait -f30
  11.     if !1 echo "create failed!"
  12.     putw "set terminal/echo\r"
  13.     dis -Htx
  14.